home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
4th86_v4.zip
/
FRENCH.4TH
< prev
next >
Wrap
Text File
|
1994-01-01
|
3KB
|
84 lines
off printload
( forget strt
: strt ; )
unsplit
( This is an illustration of how special characters -- provided they are part
of the IBM-PC character set -- can be inserted in text messages )
( *************************** )
( first define some constants )
( *************************** )
128 const ccedilla 130 const eacute
201 const tleft 205 const horiz 187 const tright
186 const vert 200 const bleft 188 const bright
( **************************** )
( now define some higher level )
( words that use them )
( **************************** )
: middle 24 0 do horiz .c loop ;
: top tleft .c middle tright .c crlf ;
: bottom bleft .c middle bright .c crlf ;
: prtced ccedilla .c ;
: prtacu eacute .c ;
( *************************** )
( Now the final words that )
( create the screen output )
( *************************** )
: test1 " this is a test " ." prtacu " of an acute ^0dh^^0ah^" ." ;
: test2 crlf " this is an alternative ^128^ m^130^thod " ."
" of doing it ^13 10 ^ " ." ;
: ctest 254 0 ( all ascii graphics characters )
do i dup
│ if[ 7 thru 10 13 27 ] ( omit screen control codes )
│ │ 20h dup .c .c drop ( because .c executes them )
│ else
│ │ dup 1fh and 0=
│ │ if ( start fresh display line )
│ │ │ crlf crlf
│ │ then
│ │ .c 20h .c ( otherwise print char + space )
│ then
loop ;
( ******************************** )
( we have finished all definitions )
( what follows is "immediate" )
( output that uses the definitions )
( ******************************** )
cls ( clear screen )
22 spcs top ( draw the top of the box )
22 spcs vert .c ( draw the left vertical of the box )
128 20h .c .c
144 20h .c .c ( write )
160 20h .c .c
144 20h .c .c ( the )
130 20h .c .c
131 20h .c .c ( required )
147 20h .c .c
133 20h .c .c ( characters )
135 20h .c .c
136 20h .c .c ( in the box )
138 20h .c .c
150 20h .c .c
20h .c vert .c crlf ( draw the right vertical of the box )
22 spcs bottom ( draw the bottom of the box )
crlf
test1 ( execute test1 )
test2 ( execute test2 )
ctest ( execute ctest )